home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / arexxport_dev / demo / test.rexx < prev    next >
OS/2 REXX Batch file  |  1996-05-02  |  1KB  |  90 lines
  1. /*
  2. ** Arexx Port Library Demo Test script
  3. */
  4.  
  5. /* Try some commands */
  6. demo.lasterror=''
  7.  
  8. 'load fish'
  9.  
  10. say "Command 'load fish' returned "rc
  11.  
  12. if rc ~= 0 then do
  13.     'fault ER'
  14.     say 'Error : 'ER
  15. end;
  16.  
  17. say ">> Any Key <<"
  18. pull a
  19.  
  20. 'saveas skate overwrite'
  21. say "Command 'saveas skate overwrite' returned "rc" String '"result"'"
  22. if rc ~= 0 then do
  23.     'fault ER'
  24.     say 'Error : 'ER
  25. end
  26. say ">> Any Key <<"
  27. pull a
  28.  
  29. say 'Returning values in variables'
  30. 'saveas skate overwrite TEST'
  31.  
  32. say "Command 'saveas skate overwrite test' returned "rc" String '"test"'"
  33. if rc ~= 0 then do
  34.     'fault ER'
  35.     say 'Error : 'ER
  36. end
  37. say ">> Any Key <<"
  38. pull a
  39.  
  40. say "At a different port"
  41. address test_port.2
  42. 'quit'
  43. say "Command 'quit' returned "rc
  44. if rc ~= 0 then do
  45.     'fault ER'
  46.     say 'Error : 'ER
  47. end
  48. say ">> Any Key <<"
  49. pull a
  50.  
  51. address
  52.  
  53. 'zoom'
  54. say "Command 'zoom' returned "rc
  55. if rc ~= 0 then do
  56.     'fault ER'
  57.     say 'Error : 'ER
  58. end
  59.  
  60. say ">> Any Key <<"
  61. pull a
  62. 'quit me oh me'
  63. say "Command 'quit me oh me' returned "rc
  64. if rc ~= 0 then do
  65.     'fault ER'
  66.     say 'Error : 'ER
  67. end
  68. say ">> Any Key <<"
  69. pull a
  70.  
  71. say "Chaining scripts together"
  72.  
  73. 'test2.rexx'
  74.  
  75. say "Script 'test2' returned "rc
  76. if rc ~= 0 then do
  77.     'fault ER'
  78.     say 'Error : 'ER
  79. end; else say 'Result = 'result
  80.  
  81. say ">> Any Key <<"
  82. pull a
  83.  
  84. say "An syntax error in a macro"
  85. say ">> Any Key <<"
  86. pull a
  87.  
  88. end
  89.  
  90. exit